﻿Imports LogicaAT.SIREOS
Imports ServiciosAT

Namespace SIREOS
    Public Class CtCliente

        Function buscarCliente(oSedeBE As SireosWSCliente.Sede) As DataTable
            Dim oClienteWSR As New ClienteWSR
            Return oClienteWSR.buscarCliente(oSedeBE)
        End Function

        Function cargarDatosCliente(oSedeBE As SireosWSCliente.Sede) As SireosWSCliente.Sede
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.cargarDatosCliente(oSedeBE)
        End Function

        Function listarContactosSede(oSedeBE As SireosWSCliente.Sede) As DataTable
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.listarContactosSede(oSedeBE)
        End Function

        Function listarClientes(oCliente As SireosWSCliente.Cliente) As DataTable
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.listarCliente(oCliente)
        End Function

        Function listarSedeCliente(oClienteBE As SireosWSCliente.Cliente) As DataTable
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.listarSedeCliente(oClienteBE)
        End Function

        Function listarTienda() As DataTable
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.listarTienda()
        End Function

        Function registrarCliente(oCliente As SireosWSCliente.Cliente) As Integer
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.registrarCliente(oCliente)
        End Function

        Function modificarCliente(oCliente As SireosWSCliente.Cliente) As SireosWSCliente.MensajeInformativo
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.modificarCliente(oCliente)
        End Function

        Function registrarSede(oSede As SireosWSCliente.Sede) As Integer
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.registrarSede(oSede)
        End Function

        Function modificarSede(oSede As SireosWSCliente.Sede) As SireosWSCliente.MensajeInformativo
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.modificarSede(oSede)
        End Function

        Function anularSede(oSede As SireosWSCliente.Sede) As SireosWSCliente.MensajeInformativo
            Dim oSedeWS As New ClienteWSR
            Return oSedeWS.anularSede(oSede)
        End Function

        Function registrarContacto(oContacto As SireosWSCliente.Contacto) As Integer
            Dim oContactoWSR As New ClienteWSR
            Return oContactoWSR.registrarContacto(oContacto)
        End Function

        Function modificarContacto(oContacto As SireosWSCliente.Contacto) As SireosWSCliente.MensajeInformativo
            Dim oContactoWSR As New ClienteWSR
            Return oContactoWSR.modificarContacto(oContacto)
        End Function

        Function cargarDatosContacto(oContacto As SireosWSCliente.Contacto) As SireosWSCliente.Contacto
            Dim oClienteWS As New ClienteWSR
            Return oClienteWS.cargarDatosContacto(oContacto)
        End Function

    End Class
End Namespace
